home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / UTILITY / PROFILER / PRIM.PRO < prev    next >
Encoding:
Text File  |  1989-06-16  |  799 b   |  34 lines
  1. PROGRAM prim2;
  2. CONST n = 1000;
  3. VAR   i,k  : integer;    {  I : 3610  Min 1  Max 1001  }
  4.                         {  K : 5884  Min 1  Max 31  }
  5.       prim : boolean;    {  PRIM : 1834  }
  6. BEGIN
  7.   write(2:4);
  8.   i:=1;
  9.   REPEAT   { 500 }
  10.     i:=i+2;
  11.     prim := true;
  12.     k:=1;
  13.     REPEAT  { 2442 }
  14.      k:=k+2;
  15.      IF i MOD k = 0
  16.        THEN prim := false;  { 334 }
  17.     UNTIL (NOT prim) OR (k>=trunc(sqrt(i)));
  18.     IF prim THEN write (i:4)   { 166 }
  19.   UNTIL i>=n;
  20. END.
  21. { Problemstellung :
  22.   Alle Primzahlen von 1 bis 997 sollen ausgegeben werden.
  23.   Dieses Programm ist durch Profilierung optimiert bis zum gehtfastnichtmehr.
  24.   
  25.   Beispiel :
  26.   
  27.   Überprüfen Sie die ausgegebenen Werte auf Primzahlen.
  28.   
  29.   Besonderheiten :
  30.   
  31.   Schleifenverhalten, Variablenbereiche 
  32. }
  34.